home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / lang / false11.lha / False_v1.1 / other / eval.f < prev    next >
Text File  |  1992-09-02  |  422b  |  12 lines
  1. {
  2. SYNTAX: a.out <Expression> <operand> <Expression>
  3.         <Expression> = num |  (<Expression> <operand> <Expression> )
  4.   ex.: a.out (((3*(4+2))-2)^2)-4
  5. }
  6. [^a:a;'(=$[m;!b:^a:]?~[a;0b:[a:'0 a;>~'91+a;>&][b;10
  7. *b:a;'0-b;+b:^]#]?b;[a;32=][^a:]#a;^a:a;'(=$[m;!b:^a
  8. :]?~[a;0b:[a:'0a;>~'91+a;>&][b;10*b:a;'0-b;+b:^]#]?b
  9. ;b:o:a:o;'*=[a;b;*]?o;'+=[a;b;+]?o;'-=[a;b;-]?o;'/=[
  10. a;b;/]?o;'^=[a;c:[b;1>][c;a;*c:b;1-b:]#c;]?]m:m;!."
  11. "
  12.